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QL CORNER Bob Gilder 


All of a sudden, I have realized that I have been-working exclusively 
with text for at least four years and I have not programmed anything at 
all. I am currently writing an article for QLtoday and I’ve decided 
that I need a little rest. Within this article I have two menus which 
are in my BOOT disk: One has 3 different printer drivers and the other 
is two different HELP files for The Editor. The main ingredients are 
two procedures, SELect ON and END SELect. The following documentation 
will help understanding both procedures. 


SELect ON 


SELect is an alternative form of decision making. It is used when it 
is required to make one choice from a list of possibilities. This is 
done by testing the value of a variable by a series of ‘ON statements, 
each of which may be followed by a series of program lines. When the 
test following an ON is true, all the statements between it and the 
next ON line are executed. 

A SELect structure is started with a SELect ON variable_name statement, 
and concluded with an END SELect statement. 


The ON statements allow the variable to be tested for equality to a 
value, or for a range of values, using the familiar TO notation (i.e. 
ON rest_of_file=39 TO 50). Other tests, such as not equal, greater 
than, less than, etc. are not acceptable. There is also an ON 
REMAINDER statement, which will execute a series of statements if no 
other ON conditions have been satisfied, This can be thought of as the 
equivalent of ELSE in IF ... THEN structure. 


The following -listing is a guess-the-number game which uses a large 
number of conditional statements. A random number is generated, and 
you get a clue as to the size. You then have to enter guesses, and the 
computer tells you how you are doing. 


Lines 130 and 140 set the windows. Here we are creating 2 windows of 


our own. The channel 3 window is for cutout only, so we use the 
sCr_uevice name. The channel 4 window is for input and output so it is 
a console device. The extra parameter at the end sets the size of a 


buffer to hold the characters typed ahead. 


The random number is selected by a loop (lines 270 to 300) which 
repeatedly selects random numbers until a key is pressed. This isa 
good way of producing a truly random value. Lines 3109 to 390 provide 


the clues. An IF ... THEN statement is used first for low values, 
followed by a SELect structure testing for ranges of intermediate 
values, and then another IF ... THEN statement for the high values. 


The main part of the game is between lines 410 and 570. Input of a 
guess is invited. If this is out of range, a suitable message is 
printed, and a NEXT statement is used (here in a REPeat loop) to go 
back for another entry. The difference between the guess and the 
random number is calculated, and this is then tested in a similar way 
to the original random number to tell you how you are doing. 


The variable diff is compared to a variable old_diff, and by this means 
you are told if your new guess is less accurate than the last. 


At line 450, if you enter the correct. number, the program branches out 
of the loop to line 580, prints CORRECT!!! and invites you to have 
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another go. If you decline, lines 660 to the énd reset the computer. 


Note that these lines reset for use with a monitor. END. 


119 REMark Guess-the-Number Game x 
129 MODE 256 

130 OPENH#S ,scr _512x120a®x@ 

140 OPEN#4,con_512x1990a9x199_8 

159 BORDER#3,16,5:BORDER#4,16,5 

169 CLOSE#1: CLOSE#2 

17 INK#3,1: PAPER#S,7 

180 INK#4,7: PAPERKA4,1 

190 CLS#3: CLS#4 

200 CSIZE#3,2,9: CSIZE#4,2,9 

219 LET tries=1: old _diff=5000 

220 REMark *x main program starts XX 
239 REPeat games 

240 CLS#3 

250 PRINT#3, ’I am thinking of a number (1 to 5000)’ 
260 PRINT#3,’(Press a key X 


270 REPeat setnumber at et ——_ ____- 


280 number=RND(1 TO 5000) 

290 IF INKEYS(#4,20)<>"" THEN EXIT setnumber 

300 END REPeat setnumber 

319 PRINT #3, ’Here is a clue E 

329 PRINT #3,’It could be ’; 

330 IF number<199 THEN PRINT#3,!’ someones age. ’! 

349 SELect ON number 

350 ON number = 199 TO 499: PRINT#3,!’a cricket score.”’! 
369 ON number = 491 TO 1999: PRINT#3,!’the pages in a book’! 
370 ON number = 

38@ END SELect 

390 IF number>30®0 THEN PRINT#3,!’a telephone number”! 

400 PRINT#4,’Try no. ’3tries 

419 REPeat guesses 

420 INPUT#4, ’Your guess?’! guess% 


1001 TO 3000: PRINT#3,! ’the size of a car engine”! 


430 IF. guess%(1 OR guess%>5@0@® THEN PRINT#4, ’SILLY!!!?: NEXT guesses 


440 dif f=ABS( number -guess% ) 

450 IF diff=® THEN EXIT guesses. 

460 IF number <guess% THEN PRINT#4,’Too big’; 

470 IF number)guess% THEN PRINT#4,’Too small ’; 

480 IF diff<19 THEN PRINT#4; "but you are very close" 
499 SELect ON diff 3 

500 ON diff=19 TO 50: PRINT#4; "but you are quite close" 
519 ON diff=51 TO 2909: PRINT#4;” 

520 END SELect 

530 IF diff>20® THEN PRINT#4; ’by a long chalk!’ 


540 IF diff>old_diff THEN PRINT#4; ’You are further out than last time!” 


550 tries=triest+1: old_diff=diff 
569 PRINT#4; ’Last guess *;guess% 
570 END REPeat guesses 


580 CLS#3 

590 FOR lines=1 TO 5 

600 PRINT#3; CORRECT!!!? 
619 END FOR lines 


620 CLS#4 

630 PRINT#4; ’Another go?’ 

6409 IF INKEY$(-1)<)”y? THEN EXIT games 

650 END REPeat games 

6609 CLOSE#3: CLOSE#4 

670 OPEN#1 ,con_256x200a256x@_255: INK#1,7:PAPER#1,2 
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689 OPEN#2,scr_256x20@adx@: INK#2,2: INK#2,2: PAPER#2,7 
690 MODE 512 
709 CLEAR: STOP 


PRINTER DRIVER MENU (used with Taskmaster ) 


451 INPUT #9; "Select a PRINTER DRIVER; Load The EDITOR; or BASIC? 
(P/E/B) "3AS 

452 IF A$s="e" OR A$="E" THEN GO TO 660 

453 IF A$="p" OR AS="P" THEN GO TO 455 

454 IF A$="b" OR A$="B" THEN GO TO 682 

455 CLS: PRINT \\\"Select printer driver" 

456 PRINT " 1 - ITOH 8510A PRINTER DRIVER" 

457 PRINT " 2 - PANASONIC KXP1124 PRINTER DRIVER" 

458 PRINT " 3 - EPSON LQ-2500 PRINTER DRIVER" 

459 INPUT #9; "Your choice? "; pr 

460 DELETE flp1_printer_dat 

461 SELect ON pr 

462 =1: COPY flp1_ITOHpr_dat TO flpi_printer_dat 

463 =2: COPY flp1_PANpr_dat TO flpi_printer_dat 

464 =3: COPY flpi_cEPLQprcdat TO flipt printer dat- eae Tanzi 
465 END SELect 

660 LRUN flp1_BOOT_edt 

672 LRUN FLP1_PIP_boot 

680 STOP 


Two HELP files for the EDITOR SE 


455 CLS: PRINT \\\"Select EDT_HELP_file menu" 
456 PRINT " 1 - EDT1_help" 

457 PRINT " 2 ~- EDT2_help" 

458 PRINT " 3 - Non_available" 

459 INPUT #9; "Your choice? "3; pr 

469 DELETE flpi_EDT_help 

461 SELect ON pr 

462 =1: COPY flp1_EDT1_help TO flpi1_EDT_help 
463 =2: COPY flp1_EDT2_help TO flp1_EDT_help 
464 =3: COPY flp1_EDT83_help TO flp1_N/A 

465 END SELect 


This is another short program using SELect ON and END SELect 


1 REMark *** Ski holiday tariffs xxX 
-CLS ea . 
100 PRINT "Ski Holidy tariffs" 

112 PRINT “Enter 1...for Westerndorf" 


120 PRINT" 2...for Adelboden" 
130 PRINT" 3...for La Plagne" 
149 PRINT" 4...for Verbier"N\\ 


150 INPUT "your selection"!n 
160 SELect ON n 

1709 ON n=1 

189 PRINT "High-season $250.00" 
199 PRINT “Low-season $195.00" 


209 ON n=2 

219 PRINT "High-season $320; low $286" 
229 ON n=3: 

239 PRINT "Special terms $200 self-cater" 
249 ON n=4 


259 PRINT "Dec, Jan $312;Feb,MAR $324" 
269 ON n=REMAINDER 
270 PRINT “Incorrect number entry" 


289 END SELect PAGE 7 4 nd 


Ken Harbit 
983 E. Kenosha 
Fresno, CA 93720 


Robert Gilder 
69 serferson Place 
Massapequa, NY 11758 


Dear Mr. Gilder, 
Thanks for the schematics, they really helped. Thanks for 


the advice on the TI99 keyboard. I’ll look around for one, I 
think I’ll start calling some of the places that still support 


Timex/Sinclair stuff and see what I. can find. I_just received the_ __ 


October LISTings, almost makes me wish I had a QL. 


One of the things I use my TS1000 for is to help me in ny 
collage math. I can create basic programs to handle just about 
any equation and it is much faster than a PC. 


While roaming internet I found a listserv that is dedicated 
to the TS1000 I am enclosing an information letter about it, you 
may want to post it in LISTings. 


In the October LISTings you ask "Who's Online?" I use a PC 
clone, 28.8 modem, Fresno State University ISP. My email address 
is krh03@cvip.fresno.com. Feel free to post my email address in 
LISTings I’m far from an expert but I would help anyone with a 
Timex/Sinclair problem. 


Once again Thanks for the help. 


Thanks for the ZX81 informatiom letter, consisting pf 3 pages. I have 
decided to post your letter and the additional information from Jack Raats. 
I am sure that our ZX81/TS100909 will find it interesting. 


As for a TI99 keyboard, I may have one around. Just give mea little 
time to find it and then I will post it in the mail for you. 


Thanks again for the following information, 


Bob Gilder 


DAS nE a 


Message created by FDint 1.10.b8 Registered to Jack Raats, 2:285/751.0 


The ZX81 information letter June 1997 


Hello everyone and welcome to this ZX81 information letter. 

First of ail | greet all newcomers who just connected to this ZX81 
mailinglist and wish you a happy stay with all of us ZX81 enthusiasts. 
Jack Raats the initiator and moderator of this list asked me to make 
some kind of reference list to which each one here can refer, to get 
questions answered and find general information about the ZX81 and the 
emulators so this is kind of a ZX81 faq list even though there are not 
many questions asked here yet :-) 

This list will be posted on a regular basis and | would therefore be 

very grateful if readers here could mail me if any information in this 

_ list is not correct and needs changing or if you have and new information ___ 


to add to this list, my email address is: martin@jarasoft.xs4all.ni or you 
can also write comments here. 


O So what is this ZX81 Mailinglist all about? 


A This list was initiated.and established by jack Raats with the idea 
in mind that ZX81 users all over the worid could have a forum to which 
they can be connected with all other ZX81 lovers all over the world. 
This way users can stay in touch and can be assured that when they ask 
a question or write about a new development they just made will be send 
to all those connected, many ZX81 hard/software experts are connected 
to this list. 


` 


Q But | don't have a ZX81? 


A There are ZX81 emulators for different platforms and there are also 
ZX81's being.sold and hardware for it and sometimes someone sells a 
ZX81 in the newsgroup comp.sys.sinciair, for example there is the 
homepage by Zebra who selis ZX81's as computer kit's: . 
http://xwwww.users.interport.net/-zebra/ts/ 

And you can also buy ZX81 hardware at: 
RMG Enterprices 14784 S Quail Grove Cir 
Oregon City OR 97045 

503 655-7484 (10Am-7Pm Tue-Sat) 

Fax 503 655-4116 


You could also get in touch with the German ZX Team Members, they make 
a magazine (German) and have a hardware supplier for the ZX81, their 
site is: http://home.t-online.de/home/p.liebert/connecti.htm 

Q Is there a good ZX81 emulator for the PC? 


A Yes a very good one, it's called Xtender, you can get the latest version 
at: ftp://ftp.nvg.unit.no/pub/sinclair/utils/pc/xtndr116.zip 


Q Is this emulator still supported and can | register it? 


r‘L‘L TT[TTrT—_t_éèètt!*-..—Màtàditg111r1g1irr[11(1][(1[(1TI(DPMMAOO)ZOo)?) eAeeeEe:smltr 


Ken Harbit -i- Sun, 26 Oct 1997 14:01:00 


A It sure is, currently it is at version 1.56 but not available yet, it 
is in testing phase and needs to be further developed and being made 
user friendly, for registration of Xtender 1.16 read xtender.txt inside 
package. 


Q But | have a Atari? 


A The are many ZX81 emulators for different computers and operating systems 
check out: ftp.nvg.unit.no/pub/sinclair or these WWW sites from which you 
can also download ZX81 emulators: 


http://www. freeflight.com/fms/comp/ 
http://www.uruk.org/~erich/emu/main.html 


Q Are there any ZX81 programs on the Internet? 


A Yes many, they are on ftp sites but can also be downloaded from webpages: 
ftp://ftp.nvg.unit.no/pub/sinclair/zx81/utils 
ftp://ftp.nvg.unit.no/pub/sinclair/zx81/snaps/packs 
ftp://ftp.nvg.unit.no/pub/sinclair/zx81/snaps 
http://edge.edge.net/-krbaker/zx81.html 


Q Are there any ZX81 email magazines? 


A yes there is my ZX81 magazine at: 
ftp://ftp.nvg.unit.no/pub/sinclair/zx81/mags/ 


Q I have a original ZX81, can | still use those snaps from pub sinclair? 


A Congratulations, yes you can, Wilf Rigter (also connected to this list) 
has written a very simple and effective (no hardware needed, just a wire) 
PC to ZX81 transfer program that load's snap's into you're ZX81. 

This program can be found on: 
fip://ftp.nva.unit.no/pub/sinciair/utils/pcizxtane.zip 
ftp://ftp.nvg.unit.no/pub/sinclair/utils/pc/zxtape.txi 


Q But | don't have direct internet access, can | still get websites and 
programs? 


A Yes you can, | also surf the net and get files from ftp sites. 
This is how you get a program from a ftp site: 


To: ftpmail@sunsite.doc.ic.ac.uk 
Subject: 


open ftp.nvg.unit.no 
cd /pub/sinclair/utils/pc 
size 500k 

uuencode 

get zxtape.zip 
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quit 


This is how get WWW pages, (including programs on them) you can get 
several pages in one message, just leave a blank line inbetween: 


To: getweb@usa.healthnet.org 
Subject: 


get http://easyweb.easynet.co. uk/%7Estevemcd/zx81.h htm 
Q Are there any ZX81 Homepages? 


A Yes many, for example try these: 
http://edge.edge.net/~krbaker/zx81.html 
http:/Awww.maths.nott.ac.uk/personal/cpg/zx81/index_old.html 
http://www.hh.schule.de/hhs/mjaap/zx81.htm 
http:/Amwmw.csv.warwick.ac.uk/-maugx/ 
http:/Awww.gre.ac.uk/~bm10/zx81.html 
http://home.t-online.de/home/p.liebert/zx-team.htm 
http://easyweb.easynet.co.uk/~stevemcd/zx81.htm 
http://edge.edge.net/~krbaker/zx81.html 
http://www.nvg.unit.no/sinclair/zx81-contents.html 
http:/Awww.netbound.com/jeffg/text/amigavzx 


Q Is it possible to search the Internet for a ZX81 related site by 
using only email? 


A Yes you can, do this: 


To: getweb@usa.healthnet.org 
Subject: 


http://webcrawler.com/cgi-bin/WebQuery?ZX81 


PIII He e Ae Ae e he de he he e e Ae Pe e e e Pe Ae e e Ae He De Pe Ae e De De e he Ae de Pe RRR RAITT e e e e e RR 


* via JaRaSoft BBS, Steenbergen, The Netherlands The internet gate! * 
* FidoNet 2:285/751 - ElectroNet 182:100/106 - +31-167-540014 V32B/FAX * 
* Standard disclaimer: The views of this user are strictly his/her own. * 
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Basic Statistics Program 


By Imre Auersbacher 


The topic this month is mathematics. In particular, the To use this statistic program, just enter all of your data 
program listed below performs basic’ statistical analysis for values. The computer will handle any number of data points, 
ungrouped data. Statistics, as you all know, is the collection and whether you have just two or even 10,000 of them. After feeding 
study of numerical facts or data and their interpretation in in all the data, enter the letter "S" or "Q" (for stop or quit). The 
mathematical terms. Whether you are analyzing the results of a computer will then output the following statistical parameters: 
laboratory experiment or just examining student test scores, the 


following program should be quite useful. 1) the number of data points, 
2) the minimum data value, 
+ FRESE = 3) the —maximum value; 

4) the sum of all values, 
. i —rm_x 5) the arithmetic mean or average, 
TREN Bol: Suerseurser som. O "the © sum of te squares, 
19 ON EPR GO TO 3 i $323: 7) the variance, 
LET sum=%0: ae a253 4 7 223 2 LA 8) the standard deviation, and 
175 sORDER 5. POKE 23609, o 9) the variation coefficient. 

14 PRINT PAPER 5," Basic Stati 
tics Package 2863 “: PRINT |. The first several quantities are simple and self-explanatory. 
15 PRINT ' ENEE ae ata Points: The variance, standard deviation, and variation coefficient are 
<: IF x =s STi HEN BEEP a basically measures of the scatter of data about their mean value. 
5.-20: GO TO 29 A sample program is given below. ` 


LETO Max =x: LET mi 


“x="“;: INPUT x: IF x 
"5": BO TO 109 
39 PRINT x.: 50 SUB 50 
25 Go TO 25 
50 IF x>? max THEN LET Mass 
55 IF x< min THEN LET mines ca 
ŁET. 35295404. 


Hund wn 


x 
x 
x 
x 
x 


: PRINT, PAPER 
“sE geet con 22°: PRINT 
PRINT “Number -points 
PRINT “Minimum value: 
PRINT “Maximum 
‘PRINT S 
PRINT 


44 Solution 


Number -BOinte: 
Minimum value: 
Maximum value: 
Sum of values: 
verage va LUE: 

squares: 
ri:ance È 


DI 


e+ tad 
3 


CN 


. 055854398 


ON ERR +» End Sctution ++. 


SN ERR CONTINUE 


I. Auersbacher 
41 King Street, A2 
Belleville, NJ 07109 CTM 
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ATTENTION LIST Subscribers: When it is time to renew your membership, 
(look at your mailing label), please make out your check to Robert 
Gilder, LIST President or to Robert Malloy, Treasurer. PLEASE DO NOT 
MAKE OUT YOUR CHECK to LIST. Our bank requires a large amount of money 
in a savings account in order to cash checks. THANK YOU! 


Robert Gilder Robert Malloy 
69 Jefferson Place, 412 Pacific Street, 
Massapequa, NY 11758 Massapequa Park, NY 11762 


Due to rising postage costs outside of the United States, we must raise 
our annual dues accordingly: 


USA postage $16.66 
CANADA and MEXICO $17.59 US, and the rest of the world $24.06 US. 


Bob Malloy, LIST Treasurer 


WHO'S ONLINE 


Some of us here at LIST have been wondering how many of our 
members are using modems with their Sinclair computers. It 
would be helpful if those of you who are into communications 
would take a few minutes to let us have the following info. 


COMPUTER USED 
COMMS PRGRM 
BAUD RATE 


You can reply to me at either of the following addresses: 
74776.2342@compuserve.com 


bmalloy@chelsea.ios.com (Internet) 


Or, you can use our snailmail address. 


Bob Malloy 
ON LINE 
Joe LaPunzina Jpunzi@aol.com 
Bob Malloy 74776.2342@compuserve.com 
Tom Skapinski tskapins@juno.com 
John Pazmino john.pazmino@moondog.com 
Tim Swenson swensotc@ss2.sews.wpfb.af.mil 
Bill Cable bcable@triton.coat.com 
Mike Jonas mjonas@bbn.com 
Gary Norton gnorton@world.std.com 
Al Boehm boehm@plh.af.mil 
Ed Kingsley elk4@aol.com 
Ken Harbit krh@3@cvip.fresno.com 
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